home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / rexx / ole1v10a.lha / OLE_System / Presentation < prev    next >
Encoding:
Text File  |  1995-02-10  |  1.1 KB  |  63 lines
  1. ;
  2. ; OLE_tour
  3. ;
  4. ; USAGE: OLE_tour
  5. ;
  6. ; $(C): (1994, Rocco Coluccelli, Bologna)
  7. ; $VER: OLE_tour 1.01 (10.Feb.1995)
  8. ;
  9.  
  10.     Set s1 "*nCannot find LIBS:translator.library...*n"
  11.     Set s2 "*nCannot find DEVS:narrator.device...*n"
  12.     Set s3 "*nCannot find the command SAY in any path...*n"
  13.  
  14. If "$language" EQ "italiano"
  15.  
  16.     Set s1 "*nNon trovo LIBS:translator.library...*n"
  17.     Set s2 "*nNon trovo DEVS:narrator.device...*n"
  18.     Set s3 "*nNon trovo il comando SAY in nessun path...*n"
  19. EndIf
  20.  
  21. ;
  22. ;    Check library, device, commands...
  23. ;
  24. If NOT EXISTS LIBS:translator.library
  25.     Echo "$s1"
  26.     Skip End
  27. EndIf
  28.  
  29. If NOT EXISTS DEVS:narrator.device
  30.     Echo "$s2"
  31.     Skip End
  32. EndIf
  33.  
  34. Which >NIL: Say
  35. If WARN
  36.     Echo "$s3"
  37.     Skip End
  38. EndIf
  39.  
  40.  
  41. ;
  42. ;    To be sure that SAY isn't already in memory, simply try to remove it
  43. ;
  44. Resident >NIL: SAY REMOVE
  45. Resident >NIL: `Which SAY` ADD PURE
  46.  
  47. ;
  48. ;    Launch one by one all scripts
  49. ;
  50. Rx rexx/intro.rexx
  51. Rx rexx/MissMSDOS.rexx
  52. Rx rexx/netprint.rexx
  53. Rx rexx/netOLEprint.rexx
  54. Rx rexx/punchMSDOS.rexx
  55. Rx rexx/netamiga.rexx
  56. Rx rexx/telephone.rexx
  57. Rx rexx/BillGoldenGates.rexx
  58.  
  59. Lab End
  60.  
  61. Resident >NIL: SAY REMOVE
  62. Avail >NIL: FLUSH
  63.